Teach Your Children: Road Construction Ahead/Teach Your Children: Road Construction Ahead.iso/pc/rca/rca.exe/rca.DXR/00009_quit.ls

Text File | 1996-07-18 | 484 b | 20 lines

on mouseDown
  set plainCast to the castNum of sprite the clickOn
  set the castNum of sprite the clickOn to plainCast + 1
  updateStage()
  repeat while the mouseDown
    if rollOver(the clickOn) then
      set the castNum of sprite the clickOn to plainCast + 1
      updateStage()
      set pressed to 1
      next repeat
    end if
    set the castNum of sprite the clickOn to plainCast + 1
    updateStage()
    set pressed to 0
  end repeat
  if pressed then
  else
  end if
end